/ Merciful 1 / Merciful - Disc 1.iso / software / m / math_vision / mathvisionv2.1b.dms / in.adf / HookExamples / Parametric / Chaos / IFS / SierpinskiTriangle.f

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 4f 52 4d 00 00 03 f0 | 49 4c 42 4d 43 48 52 53 |FORM....|ILBMCHRS|
|00000010| 00 00 03 e4 58 6d 69 6e | 20 30 0a 58 6d 61 78 20 |....Xmin| 0.Xmax |
|00000020| 31 30 0a 59 6d 69 6e 20 | 2d 31 30 0a 59 6d 61 78 |10.Ymin |-10.Ymax|
|00000030| 20 31 30 0a 43 6f 6e 74 | 6f 75 72 41 6e 63 68 6f | 10.Cont|ourAncho|
|00000040| 72 20 30 0a 43 6f 6e 74 | 6f 75 72 57 69 64 74 68 |r 0.Cont|ourWidth|
|00000050| 20 30 0a 43 6c 69 70 48 | 69 67 68 20 30 0a 43 6c | 0.ClipH|igh 0.Cl|
|00000060| 69 70 4c 6f 77 20 30 0a | 46 30 20 30 3d 63 61 73 |ipLow 0.|F0 0=cas|
|00000070| 65 28 63 6f 75 6e 74 3d | 30 2c 20 66 61 2c 20 63 |e(count=|0, fa, c|
|00000080| 6f 75 6e 74 3c 32 30 30 | 30 30 30 2c 66 62 2c 20 |ount<200|000,fb, |
|00000090| 31 20 29 20 20 22 43 6f | 6e 74 72 6f 6c 20 69 74 |1 )  "Co|ntrol it|
|000000a0| 65 72 61 74 69 6f 6e 73 | 0a 46 41 20 6e 75 6c 6c |erations|.FA null|
|000000b0| 28 66 62 2c 20 73 65 74 | 28 78 2c 30 29 2c 20 73 |(fb, set|(x,0), s|
|000000c0| 65 74 28 79 2c 30 29 20 | 29 20 20 20 20 20 20 20 |et(y,0) |)       |
|000000d0| 20 20 20 20 20 22 53 65 | 74 20 69 6e 69 74 69 61 |     "Se|t initia|
|000000e0| 6c 20 76 61 6c 75 65 73 | 0a 46 42 20 6e 75 6c 6c |l values|.FB null|
|000000f0| 28 66 63 28 72 6e 64 29 | 2c 20 66 69 28 78 2c 79 |(fc(rnd)|, fi(x,y|
|00000100| 29 20 29 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |) )     |        |
|00000110| 20 20 20 20 22 43 6f 6d | 70 75 74 65 20 6e 65 77 |    "Com|pute new|
|00000120| 20 76 61 6c 75 65 73 0a | 46 43 20 63 61 73 65 28 | values.|FC case(|
|00000130| 20 61 31 3c 2e 33 33 2c | 66 64 28 30 2c 68 65 69 | a1<.33,|fd(0,hei|
|00000140| 67 68 74 2d 31 29 2c 20 | 61 31 3c 2e 36 36 2c 66 |ght-1), |a1<.66,f|
|00000150| 64 28 77 69 64 74 68 2f | 32 2c 30 29 2c 20 66 64 |d(width/|2,0), fd|
|00000160| 28 77 69 64 74 68 2d 31 | 2c 68 65 69 67 68 74 2d |(width-1|,height-|
|00000170| 31 29 29 20 22 72 61 6e | 64 6f 6d 20 63 68 6f 69 |1)) "ran|dom choi|
|00000180| 63 65 0a 46 44 20 6e 75 | 6c 6c 28 20 73 65 74 28 |ce.FD nu|ll( set(|
|00000190| 78 2c 28 61 31 2b 78 29 | 2f 32 29 2c 20 73 65 74 |x,(a1+x)|/2), set|
|000001a0| 28 79 2c 28 61 32 2b 79 | 29 2f 32 29 20 29 20 22 |(y,(a2+y|)/2) ) "|
|000001b0| 20 6e 65 77 20 70 6f 69 | 6e 74 20 31 2f 32 20 77 | new poi|nt 1/2 w|
|000001c0| 61 79 20 62 65 74 77 65 | 65 6e 0a 46 45 20 0a 46 |ay betwe|en.FE .F|
|000001d0| 46 20 0a 46 47 20 0a 46 | 48 20 0a 46 49 20 6e 75 |F .FG .F|H .FI nu|
|000001e0| 6c 6c 28 77 70 69 78 28 | 61 31 2c 61 32 2c 69 66 |ll(wpix(|a1,a2,if|
|000001f0| 28 63 6f 75 6e 74 3e 31 | 30 2c 31 2c 30 29 29 29 |(count>1|0,1,0)))|
|00000200| 20 20 20 22 64 69 73 70 | 6c 61 79 20 76 61 6c 75 |   "disp|lay valu|
|00000210| 65 0a 43 6f 6d 6d 65 6e | 74 31 20 53 69 65 72 70 |e.Commen|t1 Sierp|
|00000220| 69 6e 73 6b 69 20 54 72 | 69 61 6e 67 6c 65 20 2d |inski Tr|iangle -|
|00000230| 20 54 68 65 20 43 68 61 | 6f 73 20 47 61 6d 65 0a | The Cha|os Game.|
|00000240| 43 6f 6d 6d 65 6e 74 32 | 20 54 68 65 20 53 63 69 |Comment2| The Sci|
|00000250| 65 6e 63 65 20 6f 66 20 | 46 72 61 63 74 61 6c 20 |ence of |Fractal |
|00000260| 49 6d 61 67 65 73 2c 20 | 70 2e 20 32 32 34 0a 43 |Images, |p. 224.C|
|00000270| 6f 6d 6d 65 6e 74 33 20 | 0a 4f 76 65 72 70 6c 6f |omment3 |.Overplo|
|00000280| 74 20 46 0a 55 73 65 42 | 61 63 6b 67 72 6f 75 6e |t F.UseB|ackgroun|
|00000290| 64 20 46 0a 4d 6f 64 75 | 6c 6f 20 32 0a 43 6f 6d |d F.Modu|lo 2.Com|
|000002a0| 70 6c 65 74 65 20 30 2e | 35 38 30 30 30 30 31 0a |plete 0.|5800001.|
|000002b0| 43 6f 6e 74 6f 75 72 53 | 61 6d 70 6c 65 44 65 6c |ContourS|ampleDel|
|000002c0| 74 61 20 30 0a 43 6f 6e | 74 6f 75 72 53 63 61 6c |ta 0.Con|tourScal|
|000002d0| 69 6e 67 20 54 0a 43 6f | 6e 74 6f 75 72 4e 6f 69 |ing T.Co|ntourNoi|
|000002e0| 73 79 20 46 0a 43 6f 6e | 74 6f 75 72 43 6c 69 70 |sy F.Con|tourClip|
|000002f0| 70 69 6e 67 20 46 0a 42 | 6f 78 48 65 69 67 68 74 |ping F.B|oxHeight|
|00000300| 20 30 0a 42 6f 78 4d 61 | 67 6e 69 66 69 63 61 74 | 0.BoxMa|gnificat|
|00000310| 69 6f 6e 20 30 0a 58 76 | 69 65 77 70 6f 69 6e 74 |ion 0.Xv|iewpoint|
|00000320| 20 30 0a 5a 76 69 65 77 | 70 6f 69 6e 74 20 30 0a | 0.Zview|point 0.|
|00000330| 50 65 72 73 70 65 63 74 | 69 76 65 53 61 6d 70 6c |Perspect|iveSampl|
|00000340| 65 44 65 6c 74 61 20 30 | 0a 50 65 72 73 70 65 63 |eDelta 0|.Perspec|
|00000350| 74 69 76 65 20 54 0a 48 | 69 64 64 65 6e 5f 4c 69 |tive T.H|idden_Li|
|00000360| 6e 65 73 20 54 0a 43 6c | 69 70 54 6f 42 6f 78 20 |nes T.Cl|ipToBox |
|00000370| 54 0a 44 72 61 77 42 6f | 78 20 54 0a 43 6f 6c 6f |T.DrawBo|x T.Colo|
|00000380| 72 54 6f 70 20 54 0a 43 | 6f 6c 6f 72 42 6f 74 74 |rTop T.C|olorBott|
|00000390| 6f 6d 20 46 0a 53 69 6d | 70 6c 65 53 61 6d 70 6c |om F.Sim|pleSampl|
|000003a0| 65 44 65 6c 74 61 20 30 | 0a 53 69 6d 70 6c 65 4e |eDelta 0|.SimpleN|
|000003b0| 6f 69 73 79 20 54 0a 53 | 69 6d 70 6c 65 47 72 61 |oisy T.S|impleGra|
|000003c0| 64 69 65 6e 74 31 20 46 | 0a 53 69 6d 70 6c 65 47 |dient1 F|.SimpleG|
|000003d0| 72 61 64 69 65 6e 74 32 | 20 46 0a 53 69 6d 70 6c |radient2| F.Simpl|
|000003e0| 65 50 65 6e 20 31 0a 50 | 6c 6f 74 4d 6f 64 65 20 |ePen 1.P|lotMode |
|000003f0| 43 6f 6e 74 6f 75 72 0a |                         |Contour.|        |
+--------+-------------------------+-------------------------+--------+--------+